home *** CD-ROM | disk | FTP | other *** search
GW-BASIC | 1987-05-08 | 989 b | 20 lines |
- 10 CLS
- 20 KEY OFF
- 30 COLOR 7,0
- 40 WIDTH 80
- 50 DEF SEG = 0: POKE 1050,PEEK(1052)
- 60 LOCATE 1,20:PRINT "M E T R I C C O N V E R S I O N S T U T O R I A L"
- 70 LOCATE 5,2:PRINT " This section will guide you through the METRIC CONVERSION of M A T H P A K."
- 80 LOCATE 6,2:PRINT " The METRIC CONVERSION section of M A T H P A K, will allow you to convert"
- 90 LOCATE 7,2:PRINT "values either from METRIC to the U.S. equivalent or vice versa."
- 100 LOCATE 8,2:PRINT " To select the proper mode (METRIC TO U.S. or U.S. to METRIC) either enter a 'M'"
- 110 LOCATE 10,2:PRINT "for METRIC to U.S. or a 'U' for U.S. to METRIC values."
- 120 LOCATE 11,2:PRINT " The section will allow you to :"
- 130 LOCATE 12,2:PRINT "convert cm to inches, meters to feet, meters to yards, kilometers to miles,"
- 140 LOCATE 13,2:PRINT "liters to U.S. gallons,grams to ounces, and pounds to kilograms, and vice versa."
- 150 LOCATE 16,2:PRINT " To exit back to main menu, enter a 'x' for mode selection."
- 160 LOCATE 20,2:PRINT "Press the S P A C E B A R to return to disk tutorial..."
- 170 S$ =INKEY$:IF S$ =" " THEN CLS:CLEAR:CHAIN"a"
- 180 GOTO 170
- 190 END
-